home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / amiga-magazin / jahresinhalt_89_bis_97 / installieren < prev    next >
Text File  |  1996-01-29  |  15KB  |  450 lines
  1. ; $VER: MaxonTWIST Install Version 2.5 (24.11.94)
  2. ; Script zum Installieren von MaxonTWIST 2 auf Festplatte
  3. ; Dipl.-Ing. Michael Giebel (:-{==
  4. ; verändert von David Göhler, Magna Media, 23. Dezember 1994
  5. ;
  6. ;============================
  7. ;=== Deutsche Erklärungen ===
  8. ;============================
  9. (set #introduction
  10. (cat "Mit diesem Programm wird \n\n MaxonTWIST 2\n\n auf einer "
  11.      "Festplatte installiert.\nDie komplette Installation läuft "
  12.      "nahezu vollständig automatisch ab.\n"
  13.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
  14.      "Drücken Sie \"Abbruch\", um die Installation abzubrechen."))
  15. (set #askdir-help
  16. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  17.      "Sie gerne MaxonTWIST installieren möchten. Danach klicken Sie "
  18.      "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
  19.      "Namen des Verzeichnisses an (z.B. WORK:TWIST2). Dann drücken Sie "
  20.      "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
  21.      "Beschreibung der Schalter:\n\n"
  22.      "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  23.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  24.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  25.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  26.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  27.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  28.      "befindete sich ein Schieber, mit dem man sich durch eine "
  29.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  30.      "alle Einträge ausreicht.\n\n"
  31.      "Man kann das aktuelle Verzeichnis wechseln, indem auf den Namen "
  32.      "einer Schublade geklickt wird.\n\n"
  33.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  34.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  35.      "wurde.)\n\n"
  36.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  37.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  38.      "auf einen Namen, um sich den Inhalt des betreffenden Gerätes "
  39.      "anzusehen.\n\n"
  40.      "Über den Schalter \"Make New Drawer\" können Sie ein neues "
  41.      "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  42.      "angelegt, das Sie soeben betrachten.\n\n"
  43.      "Mit dem Schalter \"Proceed\" erklären Sie sich mit dem eingestellten "
  44.      "Verzeichnis zufrieden und fahren mit der Installation fort.\n\n"
  45.      "Ein Klick auf den Schalter \"Abort Install\" bricht die Installation "
  46.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  47.      "vorgenommen.\n\n"
  48.      "\"Help...\" zeigt diesen Text."))
  49. (set #help-startup
  50. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  51.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  52.      "bereits beim Systemstart ausführen.\n\n"
  53.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
  54.      "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
  55.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  56.      "den Schalter \"Skip This Part\"\n\n"
  57.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  58. (set #help-delete
  59. (cat "Die Datei \"Assigns\" ist nur nötig, wenn Sie keine Änderungen in der "
  60.      "User-Startup bzw. Startup-Sequence vorgenommen haben.\n\n"
  61.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird die Datei "
  62.      "\"Assigns\" gelöscht.\n\n"
  63.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  64.      "den Schalter \"Skip This Part\". Die Datei \"Assigns\" bleibt im "
  65.      "Installationsverzeichnis erhalten.\n\n"
  66.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  67. (set #startup-help
  68. (cat "Erklärung der Schalter:\n\n"
  69.      "\"Install for Real\"\n"
  70.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  71.      "\"Pretend to Install\"\n"
  72.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  73.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  74.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  75.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  76.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  77.      "Liste über alle durchgeführten Aktionen.\n\n"
  78.      "\"Printer\"\n"
  79.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  80.      "ausgegeben.\n\n"
  81.      "\"Log File\"\n"
  82.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  83.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  84.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  85.      "\"None\"\n"
  86.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  87. (set #no-inst
  88. (cat "\nDer Platz in dem von Ihnen gewählten Verzeichnis reicht nicht aus, um die "
  89.      "nötigsten MaxonTWIST-Dateien zu kopieren\n\n"
  90.      "!!! Die Installation wird abgebrochen !!!"))
  91. (set #no-ram
  92. (cat "\nDer Speicherplatz Ihres Computers reicht nicht aus, um "
  93.      "MaxonTWIST zu installieren und zu betreiben!\n\n"
  94.      "!!! Die Installation wird abgebrochen !!!"))
  95. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  96. (set #COPYFILES (cat "\nKopiere Dateien!\n"))
  97. (set #COPVERZ
  98. (cat "Bitte wählen Sie das Verzeichnis, in das das\nTWIST-Programm installiert werden soll!\n"
  99.      "Ein Verzeichnis z.B. \"MaxonTWIST\" muß evtl. erzeugt werden!"))
  100. (set #TWDEFAULTS (cat "\n Kopiere die Default-Icons!\n"))
  101. (set #TWPROGRAMM (cat "\n Kopiere das TWIST Hauptprogramm!\n"))
  102. (set #TWUTIL (cat "\n Kopiere Icons und ARexx-Skripte!\n"))
  103. (set #TWSONSTIGES (cat "\n Kopiere Zusatzdateien!\n"))
  104. (set #TWDEMOS (cat "\nEntpacke die Beispiele nach\n\n"))
  105.  
  106. ;=================
  107. ;=== Variablen ===
  108. ;=================
  109.  
  110. (set @abort-button "Abbruch")
  111. (set @language "Deutsch")
  112.  
  113. (set DiskName   (pathonly @icon))
  114. ;(set Disk2     "MaxonTWIST2-2")
  115. (set source-lha (tackon DiskName "c/LHX"))
  116. (set dest-lha   "RAM:LHX")
  117.  
  118. ;=================
  119. ;===    MAIN   ===
  120. ;=================
  121.  
  122. (complete 0)
  123. (message #introduction)
  124. (welcome)
  125.  
  126. ; Verzeichnis aussuchen
  127. ;----------------------
  128.  
  129. (set @default-dest
  130.     (askdir
  131.         (prompt #COPVERZ)
  132.         (help
  133.             "Sie wählen hier das Verzeichnis aus, in das MaxonTWIST und die Zusatzdateien "
  134.             "kopiert werden sollen. Eine Schublade wird NICHT automatisch erzeugt. Ein "
  135.             "separates Unterverzeichnis müssen Sie \"von Hand\" über den Schalter \"Make "
  136.             "New Drawer\" erzeugen.\n\n"
  137.             #askdir-help)
  138.         (default "Sys:") ; die gibt es immer
  139.     )
  140. )
  141. (complete 1)
  142.  
  143. ; Verzeichnis erzeugen
  144. ;---------------------
  145. (if
  146.     (= (exists @default-dest) 0)
  147.     (makedir @default-dest
  148.         (safe)                                      ; auch bei scheinbarer Installation
  149.         (infos)
  150.     )
  151. )
  152. (complete 2)
  153.  
  154. ; zur Sicherheit nach Installationsdiskette fragen
  155. ;-------------------------------------------------
  156. ; das lassen wir lieber, David Göhler
  157. ;(askdisk
  158. ;    (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonTWIST2-1\" ein!")
  159. ;    (help "\nAuf Diskette 1 befindet sich das Hauptprogramm!")
  160. ;    (dest Disk1)
  161. ;)
  162. (complete 3)
  163.  
  164. ; LHX kopieren  - den brauchen wir auch nicht
  165. ;-------------
  166. ;(copyfiles
  167. ;    (prompt "Kopiere LHX in die RAM-Disk !"); was sieht der User
  168. ;    (help                                               ; der User drückt auf HELP
  169. ;        "Der Archivierer wird benötigt zum Entpacken zweier Beispieldatenbanken.\n\n"
  170. ;        @copyfiles-help)
  171. ;    (source source-lha)                         ; wo ist welche die Datei
  172. ;    (dest dest-lha)                             ; wohin soll sie
  173. ;    (files)                                     ; nur Dateien kopieren
  174. ;    (confirm)                                   ; fragen im Expert-Modus
  175. ;    (safe)                                      ; auch im "scheinbar"-Modus
  176. ;)
  177. (complete 4)
  178.  
  179. ; TWIST2, TWIST2.info und TWIST.inf kopieren
  180. ;-------------------------------------------
  181. (copyfiles
  182.     (prompt "Kopiere das Programm \"MaxonTWIST2\" !")
  183.     (help
  184.         "Es werden das Hauptprogramm, sowie die Voreinstellungsdatei kopiert.\n\n"
  185.         @copyfiles-help)
  186.     (source DiskName)
  187.     (dest @default-dest)
  188.     (pattern "TWIST#?")
  189.     (files)
  190.     (infos)                                         ; auch .info-Dateien kopieren
  191.     (confirm)
  192. )
  193. (complete 27)
  194.  
  195. ; SORTING.dat kopieren
  196. ;---------------------
  197. (copyfiles
  198.     (prompt "Kopiere die Datei \"sorting.dat\" !")
  199.     (help
  200.         "Die Datei \"sorting.dat\" enthält Informationen über die Reihenfolge, in der "
  201.         "MaxonTWIST2 Daten sortieren soll.\n\n"
  202.         @copyfiles-help)
  203.     (source (tackon DiskName "sorting.dat"))
  204.     (dest @default-dest)
  205.     (files)
  206.     (confirm)
  207. )
  208. (complete 28)
  209.  
  210. ; Liesmich und Liesmich.info kopieren
  211. ;------------------------------------
  212. (copyfiles
  213.     (prompt "Kopiere die Datei \"Liesmich\" und \"Inhalt\" !")
  214.     (help
  215.         "In der Datei \"Liesmich\" stehen WICHTIGE Informationen über Änderungen im Programm "
  216.         "gegenüber dem Handbuch.\n\nLesen Sie diese Datei unbedingt!\n\n"
  217.         @copyfiles-help)
  218.     (source DiskName)
  219.     (dest @default-dest)
  220.     (pattern "(Liesmich|Inhalt)#?")
  221.     (files)
  222.     (infos)
  223.     (confirm)
  224. )
  225. (complete 30)
  226.  
  227. ; Assigns und Assigns.info kopieren
  228. ;----------------------------------
  229. (copyfiles
  230.     (prompt "Kopiere die Datei \"Assigns\" !")
  231.     (help
  232.         "Die Datei \"Assigns\" wird benötigt, wenn Sie die für MaxonTWIST unbedingt "
  233.         "erforderlichen Zuweisungen nicht automatisch am Ende der Installation in der "
  234.         "Datei \"user-startup\" vornehmen lassen wollen.\n\n"
  235.         "Sie MÜSSEN dann jedes Mal vor dem Start von MaxonTWIST diese Datei starten!\n\n"
  236.         @copyfiles-help)
  237.     (source (tackon DiskName "Assigns"))
  238.     (dest @default-dest)
  239.     (files)
  240.     (infos)
  241.     (confirm)
  242. )
  243. (complete 31)
  244.  
  245. ; RCT-LIB kopieren
  246. ;-----------------
  247. (copylib
  248.     (prompt "Kopiere die RCT-LIBRARY !")
  249.     (help
  250.         "Die RCT-Library enthält einen Standard-Filerequester "
  251.         "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  252.         "installiert haben, dann ist hier eine neuere Version.\n\n"
  253.         @copyfiles-help)
  254.     (source (tackon DiskName "libs/rct.library"))
  255.     (dest "Libs:")
  256.     (confirm)
  257. )
  258. (complete 35)
  259.  
  260. ; ARexx-Programme kopieren
  261. ;-------------------------
  262. (if
  263.     (= (exists (tackon @default-dest "ARexx")) 0)
  264.     (makedir (tackon @default-dest "ARexx")
  265.         (safe)
  266.         (infos)
  267.     )
  268. )
  269. (copyfiles
  270.     (prompt "Kopiere die ARexx-Programme !")
  271.     (help
  272.         "Die Programme im Verzeichnis \"ARexx\" im MaxonTWIST-Ordner zeigen die "
  273.         "Leistungsfähigkeit dieser Sprache zusammen mit TWIST. Einige der Scripten "
  274.         "sind für den Gebrauch externer Dateien in einer MaxonTWIST-Datenbank "
  275.         "unabdingbar !\n\n"
  276.         @copyfiles-help)
  277.     (source (tackon DiskName "ARexx"))
  278.     (dest (tackon @default-dest "Arexx"))
  279.     (all)                                               ; auch Unterverzeichnisse kopieren
  280.     (infos)
  281.     (confirm)
  282. )
  283. (complete 36)
  284.  
  285. ; Icons kopieren
  286. ;---------------
  287. (if
  288.     (= (exists (tackon @default-dest "Icons")) 0)
  289.     (makedir (tackon @default-dest "Icons")
  290.         (safe)
  291.         (infos)
  292.     )
  293. )
  294. (copyfiles
  295.     (prompt "Kopiere die MaxonTWIST-Piktogramme !")
  296.     (help
  297.         "Die Piktogramme im Verzeichnis \"Icons\" im MaxonTWIST-Ordner werden "
  298.         "verwendet z.B. für die Icons auf dem MaxonTWIST-Desktop. Aber auch in "
  299.         "einer Datensatzmaske können sie zum Einsatz kommen.\n\n"
  300.         @copyfiles-help)
  301.     (source (tackon DiskName "Icons"))
  302.     (dest (tackon @default-dest "Icons"))
  303.     (all)
  304.     (infos)
  305.     (confirm)
  306. )
  307. (complete 39)
  308.  
  309. ; nach Diskette 2 fragen
  310. ;-----------------------
  311. ;(askdisk
  312. ;    (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonTWIST2-2\" ein!")
  313. ;    (help "\nAuf Diskette 2 befinden sich die Beispiele!")
  314. ;    (dest Disk2)
  315. ;)
  316. ;(complete 40)
  317.  
  318. ; Weitere Beispiele kopieren
  319. ;---------------------------
  320. (if
  321.     (= (exists (tackon @default-dest "Jahresinhalt")) 0)
  322.     (makedir (tackon @default-dest "Jahresinhalt")
  323.         (safe)
  324.         (infos)
  325.     )
  326. )
  327. (copyfiles
  328.     (prompt "Kopiere Jahresinhalt ... !")
  329.     (help
  330.         "Hier finden Sie das Jahresinhaltsverzeichnis 1994 des AMIGA-Magazins.\n\n"
  331.         @copyfiles-help)
  332.     (source (tackon DiskName "Jahresinhalt"))
  333.     (dest (tackon @default-dest "Jahresinhalt"))
  334.     (all)
  335.     (infos)
  336.     (confirm)
  337. )
  338. (complete 60)
  339.  
  340. ; Weitere Beispiele kopieren
  341. ;---------------------------
  342. (if
  343.     (= (exists (tackon @default-dest "Rechnungswesen")) 0)
  344.     (makedir (tackon @default-dest "Rechnungswesen")
  345.         (safe)
  346.         (infos)
  347.     )
  348. )
  349.  
  350. (copyfiles
  351.     (prompt "Kopiere Rechnungswesen ... !")
  352.     (help
  353.         "Hier finden Sie eine Beispieldatei für Rechnungswesen.\n\n"
  354.         @copyfiles-help)
  355.     (source (tackon DiskName "Rechnungswesen"))
  356.     (dest (tackon @default-dest "Rechnungswesen"))
  357.     (all)
  358.     (infos)
  359.     (confirm)
  360. )
  361. (complete 70)
  362.  
  363. ; Weitere Beispiele kopieren
  364. ;---------------------------
  365. (if
  366.     (= (exists (tackon @default-dest "Multimedia")) 0)
  367.     (makedir (tackon @default-dest "Multimedia")
  368.         (safe)
  369.         (infos)
  370.     )
  371. )
  372.  
  373. (copyfiles
  374.     (prompt "Kopiere Multimedia ... !")
  375.     (help
  376.         "Hier finden Sie eine Beispieldatei für Multimedia.\n\n"
  377.         @copyfiles-help)
  378.     (source (tackon DiskName "Multimedia"))
  379.     (dest (tackon @default-dest "Multimedia"))
  380.     (all)
  381.     (infos)
  382.     (confirm)
  383. )
  384. (complete 80)
  385.  
  386. ; Weitere Beispiele kopieren
  387. ;---------------------------
  388. (if
  389.     (= (exists (tackon @default-dest "Adressen")) 0)
  390.     (makedir (tackon @default-dest "Adressen")
  391.         (safe)
  392.         (infos)
  393.     )
  394. )
  395.  
  396. (copyfiles
  397.     (prompt "Kopiere Adressen ... !")
  398.     (help
  399.         "Hier finden Sie eine Beispieldatei für Adressen.\n\n"
  400.         @copyfiles-help)
  401.     (source (tackon DiskName "Adressen"))
  402.     (dest (tackon @default-dest "Adressen"))
  403.     (all)
  404.     (infos)
  405.     (confirm)
  406. )
  407. (complete 96)
  408.  
  409.  
  410. ; LHX löschen (keine Spuren zurücklassen)
  411. ;------------
  412. ;(delete dest-lha
  413. ;    (optional "force")                          ; auch löschen, wenn schreibgeschützt
  414. ;    (safe)                                          ; wurde ja auch in jedem Fall kopiert
  415. ;)
  416. ;(complete 97)
  417.  
  418. ; STARTUP ändern
  419. ;---------------
  420. (set command1
  421. (cat  "ASSIGN TWIST: " @default-dest "\nASSIGN TWISTICON: TWIST:ICONS\n"))
  422. (set command1.txt
  423. (cat    "\n\n\nUm mit dem MaxonTWIST richtig arbeiten zu können, muß eine "
  424.         "Änderung an der User-Startup vorgenommen werden.\n\n"
  425.         command1))
  426. (startup "MaxonTWIST.app"
  427.     (prompt command1.txt)
  428.     (help #help-startup)
  429.     (command command1)
  430. )
  431. (complete 98)
  432.  
  433. ; ASSIGNS durchführen (=> sofort startbar)
  434. ;--------------------
  435. (makeassign "TWIST")
  436. (makeassign "TWIST" @default-dest)
  437. (makeassign "TWISTICON")
  438. (makeassign "TWISTICON" "TWIST:Icons")
  439. (complete 99)
  440.  
  441. ; FERTIG
  442. ;-------
  443. (message
  444. (cat    "Installation der Datenbank MaxonTWIST 2 beendet.\n"
  445.         "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  446.         "User-Startup eingefügt wurden, holen Sie dies bitte nach.\n\n"
  447.         "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  448.         "MaxonTWIST 2.\n\nViel Erfolg!"))
  449. (complete 100)
  450.